home *** CD-ROM | disk | FTP | other *** search
/ GFX Sensations 1 / Graphic Sensations - Volume 1.iso / com_net / mail / thor / fsepgpsc13.lha / FSEPGPScripts / FSEScriptIn < prev    next >
Encoding:
Text File  |  1993-12-17  |  1.1 KB  |  39 lines
  1. ; $VER: FSEScriptIn  V1.3 (16.12.93) PGP support by Christian Sandberg
  2. .key Filename/a,Width/a
  3. .bra {
  4. .ket }
  5.  
  6. failat 99
  7.  
  8. search "{filename}" "-----BEGIN PGP MESSAGE-----"
  9. if NOT WARN
  10.      set Msgfile `list "{Filename}" lformat="%s"`
  11.      QuoteMsg "{filename}" "t:$Msgfile" {width} UNQUOTE
  12.      copy "t:$Msgfile" "{filename}.bak"
  13.      if not exists ENV:PGPPASS
  14.           setenv PGPPASS "`ESR "" "Enter PGP password:"`"
  15.      endif
  16.      delete "{filename}"
  17.      path $PGPPATH add
  18.     pgp >>"t:out.$Msgfile" "t:$Msgfile" -o "{filename}"
  19.      if WARN
  20.           copy "{filename}.bak" "{filename}"
  21.           type >"CON:0/10//200/PGP Error Msg/CLOSE/WAIT/ScreenTHOR" "t:out.$Msgfile"
  22.          delete >nil: "t:$Msgfile" "t:out.$Msgfile" "{filename}.bak"
  23.           skip quit
  24.           endif
  25.      setenv FSEPGP.$Msgfile "Yepp!"
  26.     QuoteMsg "{filename}" "t:$Msgfile" {width}
  27.      assign >nil: exists THOR:
  28.      if NOT WARN
  29.           THOR:bin/AddSig t:$Msgfile
  30.           endif
  31.      copy "t:$Msgfile" "{filename}"
  32.     delete >nil: "t:$Msgfile" "t:out.$Msgfile" "{filename}.bak"
  33.      unset Msgfile
  34.      endif
  35.  
  36. lab quit
  37.  
  38. quit
  39.